unit uBaseIntf;

interface

uses
  Winapi.Windows, System.Classes, Vcl.Forms, System.Variants, TCPClient;

type
  TMsgLevelOption = (MSG_HINT, MSG_WARING, MSG_ERROR, MSG_DEBUG);
  ICreateForm = interface
    ['{E222AC94-D53B-475F-8431-183702F5C25B}']
    function GetForm(MainForm: TForm; const Address: String; bShow: Boolean): TForm;
    function GetLoginDialog: TForm;
  end;
  TSmartFrm = class(TForm)
  public
    function GotoRecord(const Key: Variant): Boolean; virtual;
    function PostMessage(MsgType: Integer; Msg: Variant): Variant; virtual;
  end;

var
  DM: TBaseClient;

implementation

procedure ForceReferenceToClass(C: TClass);
begin

end;

{ TSmartFrm }

function TSmartFrm.GotoRecord(const Key: Variant): Boolean;
begin
  Result := True;
end;

function TSmartFrm.PostMessage(MsgType: Integer; Msg: Variant): Variant;
begin
  Result := NULL;
end;

initialization
  DM := nil;
  ForceReferenceToClass(TSmartFrm);

end.
